<!--#include file="DataLoad.asp"-->
<%
sql="select * from raid_event where event_object2_tooltip like '%;"&Request("key")&";%' "
rs.open sql,conn,1,1

if rs.eof or rs.bof then
	Response.write Request("key")&"<br>no data."
else
	Dim tooltip,tooltipText
	tooltip=rs("event_object2_tooltip")
		ArrTooltip = Split(tooltip,";")
		for ig = 3 to Ubound(ArrTooltip)
			Select Case True
				Case Instr(ArrTooltip(ig),"|")>0
					tooltipText=tooltipText&"<p>"&Replace(ArrTooltip(ig),"|","<span>")&"</span></p>"
				Case Instr(ArrTooltip(ig),"装备：")>0 or Instr(ArrTooltip(ig),"使用：")>0
					tooltipText=tooltipText&"<p class=""effect"">"&ArrTooltip(ig)&"</p>"
				Case Instr(ArrTooltip(ig),"/")>0
					tooltipText=tooltipText&"<p class=""GoldText"">"&ArrTooltip(ig)&"</p>"
				Case Instr(ArrTooltip(ig),"套装：")>0
					tooltipText=tooltipText&"<p class=""GoldText"">"&ArrTooltip(ig)&"</p>"
				Case else
					tooltipText=tooltipText&"<p>"&ArrTooltip(ig)&"</p>"
			End Select
		next
		tooltipText="<h4 class="""&color2CSS(ArrTooltip(0))&""">"&ArrTooltip(2)&"</h4>"&tooltipText
	Response.write tooltipText
end if
rs.close


p = "http://tw.wowarmory.com/item-info.xml?i=34853" 'http://db.duowan.com/wow/gi-40588.html
Response.BinaryWrite ZQcnGet(p) 
Response.Flush

Function ZQcnGet(url)  
Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
With Retrieval  
.Open "Get", url, False, "", ""  
.Send  
ZQcnGet = .ResponseBody  
End With  
Set Retrieval = Nothing  
End Function  
%>
